Public Class Participante
    Inherits Usuario


    Private strPapel As String

    Public Sub New(ByVal objUsuario As Usuario, ByVal strPapel As String)
        MyBase.new(objUsuario.getLogin, objUsuario.getSenha, objUsuario.getCargo, objUsuario.getId, objUsuario.getNome, objUsuario.getNivelSeguranca)
        Me.strPapel = strPapel
    End Sub

    Public Sub setPapel(ByVal Papel As String)
        strPapel = Papel
    End Sub

    Public Function getPapel() As String
        getPapel = strPapel
    End Function


    Public Property Papel() As String
        Get
            Return Me.strPapel
        End Get
        Set(ByVal Value As String)
            Me.strPapel = Value
        End Set
    End Property

End Class
